home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / ARCHIE / ARCHIE.PPD < prev    next >
Text File  |  1995-11-15  |  4KB  |  154 lines

  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 3.10 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     STRING     VAR001
  11.     STRING     VAR002
  12.     STRING     VAR003
  13.     STRING     VAR004
  14.     STRING     VAR005
  15.     INTEGER    VAR006
  16.     BOOLEAN    VAR007
  17.     BOOLEAN    VAR008
  18.     DATE       VAR009
  19.     STRING     VAR010
  20.     STRING     VAR011
  21.     STRING     BBSNAME
  22.     STRING     SYSNAME
  23.     INTEGER    VAR012
  24.     BOOLEAN    VAR013
  25.     BOOLEAN    VAR014
  26.     BOOLEAN    VAR015
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     CLS 
  31.     LET VAR012=0
  32.     LET VAR013=0
  33.     LET VAR014=0
  34.     FOPEN 1,PPEPATH()+"ARCHIE.CFG",O_RD,S_DN
  35.     FGET 1,VAR006
  36.     FGET 1,BBSNAME
  37.     FGET 1,SYSNAME
  38.     FCLOSE 1
  39.     PRINTLN "@X0FARCHIE by Email - Version .20b"
  40.     PRINTLN "Registered to: "+BBSNAME
  41.     PRINTLN "Sysop: "+SYSNAME
  42.     PRINTLN 
  43.     WAIT 
  44.     PRINTLN 
  45.     PRINTLN "@X0FPlease enter the following information for the filenames you wish to"
  46.     PRINTLN "search for.@X07"
  47.  
  48. :LABEL000
  49.     IF (!(!VAR013)) GOTO LABEL004
  50.     INPUT "Enter the string to search for",VAR001
  51.     IF (!(VAR001="")) GOTO LABEL002
  52.     PRINTLN 
  53.     PRINTLN "Please enter a search string!"
  54.     PRINTLN 
  55.     LET VAR012=VAR012+1
  56.     IF (!(VAR012>=4)) GOTO LABEL001
  57.     PRINTLN "too many trys - aborting!!!!"
  58.     LET VAR013=1
  59.     LET VAR014=1
  60.  
  61. :LABEL001
  62.     GOTO LABEL003
  63.  
  64. :LABEL002
  65.     LET VAR013=1
  66.  
  67. :LABEL003
  68.     GOTO LABEL000
  69.  
  70. :LABEL004
  71.     LET VAR011="Y"
  72.     IF (!(!VAR014)) GOTO LABEL008
  73.     LET VAR015=1
  74.     PRINTLN 
  75.     PRINT "Creating ARCHIE request...."
  76.     LET VAR010=PPEPATH()+"ATEMP"+STRING(PCBNODE())+".TMP"
  77.     FCREATE 1,VAR010,O_WR,S_DB
  78.     LET VAR002=U_NAME()
  79.     LET VAR004="archie@archie.rutgers.edu"
  80.     LET VAR003=" "
  81.     LET VAR005="R"
  82.     LET VAR007=0
  83.     LET VAR008=1
  84.     LET VAR009=DATE()+3
  85.     IF (!VAR015) GOTO LABEL005
  86.     FPUTLN 1,"set search sub"
  87.     GOTO LABEL006
  88.  
  89. :LABEL005
  90.     FPUTLN 1,"set search exact"
  91.  
  92. :LABEL006
  93.     FPUTLN 1,"find ",VAR001
  94.     FPUTLN 1,"quit"
  95.     FCLOSE 1
  96.     PRINTLN "Done!"
  97.     LET VAR011="Y"
  98.     INPUTYN "Do you want to send this request (Y/N)",VAR011,15
  99.     IF (!(VAR011="Y")) GOTO LABEL007
  100.     PRINTLN 
  101.     PRINTLN "Request sent!"
  102.     MESSAGE VAR006,VAR004,VAR002,VAR003,VAR005,VAR009,VAR007,VAR008,VAR010
  103.     GOTO LABEL008
  104.  
  105. :LABEL007
  106.     PRINTLN 
  107.     PRINTLN "Request Aborted!"
  108.  
  109. :LABEL008
  110.     PRINTLN 
  111.     PRINTLN "Returning back to BBS"
  112.     PRINTLN 
  113.     END 
  114.  
  115.  
  116. ;------------------------------------------------------------------------------
  117. ;Statements used:
  118. ;
  119. ;     1 END
  120. ;     1 CLS
  121. ;     3 WAIT
  122. ;    10 GOTO
  123. ;    18 LET
  124. ;     1 PRINT
  125. ;    25 PRINTLN
  126. ;     6 IF
  127. ;     1 INPUT
  128. ;     1 FCREATE
  129. ;     1 FOPEN
  130. ;     2 FCLOSE
  131. ;     1 FGET
  132. ;     4 FPUTLN
  133. ;     1 INPUTYN
  134. ;     1 DELAY
  135. ;     1 MESSAGE
  136. ;
  137. ;Functions used:
  138. ;
  139. ;     1 *
  140. ;     1 /
  141. ;     6 +
  142. ;     2 =
  143. ;     1 >=
  144. ;     8 !
  145. ;     1 DATE
  146. ;     1 U_NAME
  147. ;     1 STRING
  148. ;     2 PPEPATH
  149. ;     1 PCBNODE
  150. ;
  151. ;------------------------------------------------------------------------------
  152. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  153. ;------------------------------------------------------------------------------
  154.